used in code used only for XEmacs, where it is different from
`last-command-event'.
;; We don't need to handle `last-input-event', because
;; due to the key map we know it must be ?/ or ?~.
(let ((s (concat (buffer-substring (point-min) (point))
- (string last-command-event))))
+ (string last-command-char))))
(delete-region (point-min) (point))
(insert (substitute-in-file-name s))
- (setq ad-return-value last-command-event))
+ (setq ad-return-value last-command-char))
ad-do-it))))
'(minibuffer-electric-separator